home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ssetup26.zip / TMPFORM.FR_ / TMPFORM.FRM
Text File  |  1995-07-27  |  3KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   1656
  6.    ClientLeft      =   1080
  7.    ClientTop       =   1512
  8.    ClientWidth     =   4500
  9.    ControlBox      =   0   'False
  10.    Height          =   1980
  11.    Left            =   1032
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1656
  17.    ScaleWidth      =   4500
  18.    Top             =   1236
  19.    Width           =   4596
  20.    Begin Label Etiquette1 
  21.       Alignment       =   2  'Center
  22.       BackColor       =   &H00C0C0C0&
  23.       Caption         =   "Initialization, please wait..."
  24.       Height          =   255
  25.       Left            =   480
  26.       TabIndex        =   0
  27.       Top             =   600
  28.       Width           =   3375
  29.    End
  30. End
  31.  
  32.  
  33. Sub Form_GotFocus ()
  34. a% = BringWindowToTop(Form2.hwnd)
  35. End Sub
  36.  
  37. Sub Form_Load ()
  38. bRunningSetup% = 0
  39. FirstCanClose% = 0
  40. Form2.Move (Screen.Height / 2) - (Height / 2), (Screen.Width / 2) - (Width / 2), Width, Height
  41. b% = BringWindowToTop(Form2.hwnd)
  42.  
  43. szBuffer$ = String$(20, 0)
  44. a% = GetProfileString("intl", "sLanguage", "", szBuffer$, 4)
  45. iZero% = InStr(szBuffer$, Chr$(0))
  46. szTemp$ = Left$(szBuffer$, iZero% - 1)
  47. If (szTemp$ = "fra") Or (szTemp$ = "FRA") Then
  48. iLanguage% = LANGUAGE_FRENCH
  49. Etiquette1.Caption = "Initialisation, veuillez patienter..."
  50. Else
  51. iLanguage% = LANGUAGE_ENGLISH
  52. End If
  53. bIsSetupOK% = SetupInitialize(szYourName$, szPassword$, iLanguage%, szOriginalPath$, szTempSetupPath$)
  54. If (bIsSetupOK% = 0) Then
  55. If (iLanguage% = LANGUAGE_FRENCH) Then
  56. MsgBox "Erreur d' initialisation..."
  57. Else
  58. MsgBox "Initialization error..."
  59. End If
  60. FirstCanClose% = 1
  61. End
  62. End If
  63. a% = SetupSetTitle(szSetupBoxTitle$)
  64.  
  65. ' -------------------------------------------------------------
  66. ' Using a system batch (shared files)
  67. ' -------------------------------------------------------------
  68. If (bUseSharedBatch% = 1) Then
  69. szBuffer$ = String$(256, 0)
  70. a% = GetWindowsDirectory(szBuffer$, 255)
  71. iZero% = InStr(szBuffer$, Chr$(0))
  72. szTemp$ = Left$(szBuffer$, iZero% - 1)
  73. szBuffer$ = szTemp$
  74. If (Len(szBuffer$)) > 3 Then
  75.  szBuffer$ = szBuffer$ + "\"
  76. End If
  77. szWinDir$ = szBuffer$
  78. szUserBatchFile$ = Left$(szWinDir$, 3)
  79. szUserBatchDir$ = szUserBatchFile$ + "SYSSETUP.TMP\"
  80. szUserBatchFile$ = szUserBatchFile$ + "SYSSETUP.TMP\SYSSETUP.BAT"
  81. a% = SetSharedBatchFile(szUserBatchFile$, szUserBatchDir$)
  82. End If
  83.  
  84. ' -------------------------------------------------------------
  85. ' Other settings
  86. ' -------------------------------------------------------------
  87. a% = SetPatternBrushStandard(iBackgroundPaper%)
  88. a% = SetupSetBeepMode(bBeepMode%)
  89. a% = SetVerifyMode(bVerifyMode%)
  90.  
  91. If (iPanel1Bitmap% = 0) Then
  92. If (szPanel1Title$ <> "") Then
  93. a% = SetTextLogo(szPanel1Title$, szPanel1TitleFont$, iPanel1TitleSize%, lPanel1TitleColor&, bPanel1Title3D%, bPanel1TitleBold%)
  94. If (szPanel1Detail$ <> "") Then
  95. a% = SetTextDetail(szPanel1Detail$, szPanel1DetailFont$, iPanel1DetailSize%, lPanel1DetailColor&, bPanel1Detail3D%, bPanel1DetailBold%)
  96. End If
  97. a% = SetLogoType(1)
  98. End If
  99. Else
  100. 'a% = SetLogo(hInstance%, iPanel1Bitmap)
  101. 'SetLogoType( 0)
  102. End If
  103. FirstCanClose% = 1
  104. bRunningSetup% = 1
  105. End Sub
  106.  
  107.